Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/shadwchr.sit/ShadowChar.sit/Shadowrun Characters no rpt/background_2645.txt

Text File | 1989-10-24 | 32KB | 1,344 lines

-- background: 2645 from stack: in
-- bmap block id: 3290
-- flags: 4000
-- background id: 0
-- name: noteback
----- HyperTalk script -----
on closecard
  put fld topic into j
  put short name of this card into k
  if j <> k then
    send closefield to fld topic
  end if
  if the visible of fld indexlist is true then
    lock screen
    hide fld indexlist
    hide field indexback
    unlock screen with visual dissolve
  end if
end closecard

on newcard
  put field cyberdeckhd of cd "master card" into fld cyberdeckhd
  put field vehiclehd of cd "master card" into fld vehiclehd
  put field "other gearhd" of cd "master card" into fld "other gearhd"
  put field noteshd of cd "master card" into fld noteshd
  put field weaponshd of cd "master card" into fld weaponshd
  put field spellshd of cd "master card" into fld spellshd
  put field skillshd of cd "master card" into fld skillshd
  put field poolshd of cd "master card" into fld poolshd
  put field contactshd of cd "master card" into fld contactshd
  put field conditionhd of cd "master card" into fld conditionhd
  put field cyberwearhd of cd "master card" into fld cyberwearhd
  pass newcard
end newcard




-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=481 top=24 right=49 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next Card
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go next card
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=412 top=24 right=50 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev card
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go prev cd
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=41 top=26 right=45 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Topic
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=446 top=24 right=50 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=85 right=102 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Cards
----- HyperTalk script -----
on mouseUp
  sort by fld topic
  send mouseup to bg btn "Rebuild Index"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=69 right=86 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Text
----- HyperTalk script -----
on mouseUp
  domenu "find..."
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=405 top=51 right=69 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Character
----- HyperTalk script -----
on mouseUp
  global index
  If the visible of field indexlist is true then
    lock screen
    set the visible of field indexlist to false
    set the visible of field indexback to false
    unlock screen with visual effect dissolve
  else
    lock screen
    put index into fld indexlist
    set the visible of field indexlist to true
    set the visible of field indexback to true
    unlock screen with visual effect dissolve
  end if
  set the locktext of field indexlist to true
end mouseUp



-- part 22 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=4 top=49 right=315 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: indexkeeper


-- part 24 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=87 top=47 right=66 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: streetname
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 25 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=330 top=49 right=68 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: sex
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 35 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=37 top=67 right=86 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: race
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 36 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=170 top=67 right=86 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: karma
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=293 top=67 right=86 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: archetype
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 38 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=63 top=87 right=106 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: lifestyle
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 39 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=274 top=87 right=106 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: money
----- HyperTalk script -----
on closefield
  global index
  get the number of chars of me
  if char it of me is return then
    delete char it of me
  end if
  set the name of this card to fld topic
  put the number of this card into cardnum
  put cardnum +1 into nextnum
  if cardnum is not the number of cards then
    put the short name of card nextnum into nexter
    put line cardnum of index into nextitem
    if nexter = nextitem then
      put fld topic & return before line cardnum of index
    else
      put fld topic into line cardnum of index
    end if
  else
    put fld topic & return into line cardnum of index
    if line nextnum of index is not empty then
      put "" into line nextnum of index
    end if
  end if
end closefield



-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=89 top=136 right=150 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: body


-- part 41 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=89 top=149 right=163 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: quickness


-- part 43 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=163 right=177 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: strength


-- part 45 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=187 right=201 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: charisma


-- part 46 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=89 top=200 right=214 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: intelligence


-- part 47 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=213 right=227 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: willpower


-- part 48 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=241 right=255 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: essence


-- part 49 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=254 right=268 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: magic


-- part 50 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=89 top=267 right=281 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: reaction


-- part 51 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=133 top=153 right=335 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: skills


-- part 86 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=78 top=293 right=307 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: substance


-- part 52 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=133 top=106 right=130 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
----- HyperTalk script -----
on mouseDown
  put "Skills,Condition,Weapons,Cyberwear,Spells,Pools,Cyberdeck,Vehicle,Other Gear,Contacts,Picture,Notes" into theMenuItems
  get PopUpMenu (theMenuItems, 0, left of me+1, bottom of me)
  if it is not 0 and it is not the short name of me then
    put item it of theMenuItems into theName
    lock screen
    put the short name of me into oldField
    if oldfield is not "Picture" then
      hide fld oldField
      hide fld (oldfield & "hd")
      if oldfield is "vehicle" then
        hide fld "vehicle items"
        hide fld "vehicle damage"
        hide fld "vehicle type"
      else if oldfield is "condition" then
        hide fld "condition mental"
      else if oldfield is "cyberdeck" then
        hide fld "cyberdeck progsize"
        hide fld "cyberdeck monitor"
        hide fld "cyberdeck programs"
      end if
    else
      hide card picture

    end if
    set the name of me to theName
    if theName is not "Picture" then
      show fld theName
      show fld (theName & "hd")
      if theName is "vehicle" then
        show fld "vehicle items"
        show fld "vehicle damage"
        show fld "vehicle type"
      else if theName is "condition" then
        show field "condition mental"
      else if theName is "cyberdeck" then
        show field "cyberdeck progsize"
        show field "cyberdeck monitor"
        show field "cyberdeck programs"
      end if
    else
      show card picture

    end if
    unlock screen with visual dissolve
  end if
end mouseDown
on setup
  put "Notes" into theName
  lock screen
  put the short name of me into oldField
  if oldfield is not "Picture" then
    hide fld oldField
    hide fld (oldfield & "hd")
    if oldfield is "vehicle" then
      hide fld "vehicle items"
      hide fld "vehicle damage"
      hide fld "vehicle type"
    else if oldfield is "condition" then
      hide fld "condition mental"
    else if oldfield is "cyberdeck" then
      hide fld "cyberdeck progsize"
      hide fld "cyberdeck monitor"
      hide fld "cyberdeck programs"
    else
      hide card picture
    end if
  end if
  set the name of me to "Notes"
  show fld Notes
  show fld Noteshd
  unlock screen with visual dissolve
end setup



-- part 87 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=78 top=306 right=320 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: severity


-- part 89 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=78 top=319 right=333 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: racial


-- part 54 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=133 top=151 right=335 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Contacts


-- part 55 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=133 top=151 right=335 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Notes


-- part 56 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=135 top=160 right=340 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other Gear


-- part 65 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=134 top=134 right=341 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: vehiclehd


-- part 57 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=203 top=173 right=280 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Vehicle


-- part 80 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=133 top=134 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: cyberdeckhd


-- part 23 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=153 right=170 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  global index
  if the cantdelete of this card is false then
    put the number of this card into cardnum
    delete line cardnum of index
    put index into fld indexlist
  end if
  domenu "Cut Card"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=134 right=154 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rebuild Index
----- HyperTalk script -----
on mouseUp
  global index
  set cursor to watch
  put "This will take a moment." into msg box
  lock screen
  push card
  go to first card
  put "" into index
  repeat for the number of cards
    send closefield to fld topic
    go to next card
    next repeat
  end repeat
  pop card
  put index into fld indexlist
  put index into fld indexkeeper of first card
  unlock screen
  hide msg box
  set cursor to hand
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=118 right=135 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Append Card
----- HyperTalk script -----
on mouseUp
  go last card
  domenu "New Card"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=420 top=101 right=119 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Insert Card
----- HyperTalk script -----
on mouseUp
  DoMenu "New Card"
end mouseUp



-- part 58 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=197 top=160 right=329 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Cyberdeck


-- part 59 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=249 top=151 right=334 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Pools


-- part 60 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=133 top=135 right=230 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: weapons


-- part 61 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=133 top=153 right=335 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: spells


-- part 62 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=133 top=149 right=335 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cyberwear


-- part 64 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=133 top=135 right=152 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Contactshd


-- part 66 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=135 top=142 right=161 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: other gearhd


-- part 67 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=133 top=136 right=152 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: noteshd


-- part 68 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=133 top=135 right=150 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8448
-- line height: 13
-- part name: weaponshd


-- part 69 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=133 top=136 right=154 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: skillshd


-- part 70 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=133 top=138 right=154 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: spellshd


-- part 71 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=144 top=138 right=336 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: poolshd


-- part 72 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=133 top=132 right=150 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: cyberwearhd


-- part 73 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=270 top=106 right=130 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Selector
----- HyperTalk script -----
on mouseDown
  if the visible of fld Weapons is true then
    put "Walther Palm,Colt L36,Fichetti Security 500,Ares Predator,Browning Max-Power,Remington Roomsweeper,Ruger Super Warhawk,FN HAR,AK-97,Enfield AS7" into theMenuItems
    get PopUpMenu (theMenuItems, 0, Left of me+1, bottom of me)
    if it is not 0 then
      put return & item it of theMenuItems after fld "weapons"
    end if
  else if the visible of fld Spells is true then
    put "Power Missile,Power Bolt,Powerball,Fireball,Hellblast,Sleep,Ram,Analyze Device,Analyze Truth,Clairvoyance,Combat Sense,Detect Enemies,Detect Individual,Detect Life,Detect ...,Mind Probe,Chaos,Chaotic World,Confusion,Entertainment,Invisibility" into theMenuItems
    get PopUpMenu (theMenuItems, 0, left of me+1, 0)
    if it is not 0 then
      put return & item it of theMenuItems after fld "spells"
    end if
  end if
end mouseDown



-- part 76 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=134 top=134 right=342 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Conditionhd


-- part 75 (field)
-- low flags: 80
-- high flags: 6002
-- rect: left=238 top=148 right=311 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Condition


-- part 19 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=6 top=57 right=307 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: indexback


-- part 20 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=8 top=59 right=303 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: indexlist
----- HyperTalk script -----
on mouseup
  if the optionkey is down then
    set the locktext of me to false
  else if the commandkey is down then
    set the locktext of me to true
    hide the target
  else
    set the locktext of me to false
    click at the clickloc
    click at the clickloc
    select the selectedline
    put the selection into it
    set the locktext of me to true
    lock screen
    hide bg fld indexback
    hide me
    go to card it
    unlock screen with visual effect dissolve
  end if
end mouseup


-- part 77 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=348 top=185 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: vehicle items


-- part 78 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=255 top=173 right=303 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Vehicle damage


-- part 79 (field)
-- low flags: 80
-- high flags: 6002
-- rect: left=279 top=148 right=311 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Condition mental


-- part 81 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=260 top=148 right=278 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Cyberdeck monitor


-- part 82 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=229 top=277 right=329 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: cyberdeck progsize


-- part 83 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=319 top=212 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: cyberdeck programs


-- part 84 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=183 top=135 right=150 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: vehicle type